100 DATA CUSTOM,MASTER,FUTURE,DORADO,GREECE,FLAMES,ANIMAL,EPOPEE,JAGUAR,MATRIX
110 DATA WIZARD,CATGUT,FIRING,LADDER,FIRKIN,SPHINX,TYPIST,VOYAGE,PALACE,DECADE
120 DATA ARMADA,ESTATE,GOPHER,KERNEL,JUMPER,GROOVE,HIPHOP,OFFSET,SUINEG,*
130 DIMA$(30):E=1
140 READA$(E):IFA$(E)="*"GOTO160
150 E=E+1:GOTO140
160 POKE53280,6:POKE53281,6:PRINT"[147] THINK CROSS-CODEWORDS BY THE SIR":PRINT
170 FORI=1TOE-1
180 PRINTSTR$(I*5);SPC(4-LEN(STR$(I*5)));" : "+A$(I),
190 NEXT
200 GOTO200